﻿Imports extranet.BE
Imports extranet.BC
Imports MetodosComuns

Partial Class forum_excluir
    Inherits System.Web.UI.Page
    Dim tipo As String
    Dim strID As String
    Dim objBEForum As BEForum
    Dim objBESubcategoria As BESubcategoria
    Dim objBETopico As BETopico
    Dim objBEPost As BEPost

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim objBESeguranca As New BESeguranca
        Dim objBEUsuario As BEUsuario = Session("objBEUsuario")

        If IsNothing(objBEUsuario) Then Response.Redirect(TELA_LOGOUT)
        Session("strTela") = MetodosComuns.GetCurrentPageName()
        If Not IsPostBack Then          ' SEGURANÇA
            objBESeguranca = BCSeguranca.SelecionaPermissoes(objBEUsuario.GrupoAcesso, Session("strTela"))
            If Not objBESeguranca.Autorizado Then Response.Redirect(TELA_LOGOUT)
            Session("objBESeguranca") = objBESeguranca
        Else
            objBESeguranca = Session("objBESeguranca")
        End If

        If objBESeguranca.Escrita Then 'Verificar aki se usuário tem permissao de administrador
            If Not IsPostBack Then
                tipo = Request.QueryString("tipo")
                strID = Request.QueryString("id")
                Select Case tipo
                    Case "categoria"
                        objBEForum = New BEForum
                        objBEForum = BCForum.SelecionaCategoria(strID)
                        lblTitulo.Text = "Excluir Categoria """ & objBEForum.Nome & """"
                        lblMensagem.Text = "A Categoria """ & objBEForum.Nome & """ e todas as subcategorias, tópicos e posts nele contidos serão exluídos. Tem certeza que deseja continuar?"
                    Case "subcategoria"
                        objBESubcategoria = New BESubcategoria
                        objBESubcategoria = BCForum.SelecionaSubcategoria(strID)
                        lblTitulo.Text = "Excluir Subcategoria """ & objBESubcategoria.Nome & """"
                        lblMensagem.Text = "A Subcategoria """ & objBESubcategoria.Nome & """ e todos os tópicos e posts nele contidos serão exluídos. Tem certeza que deseja continuar?"
                    Case "topico"
                        objBETopico = New BETopico
                        objBETopico = BCForum.SelecionaTopico(Convert.ToInt32(strID))
                        lblTitulo.Text = "Excluir Topico """ & objBETopico.Titulo & """"
                        lblMensagem.Text = "O Tópico """ & objBETopico.Titulo & """ e todos os posts nele contidos serão exluídos. Tem certeza que deseja continuar?"
                    Case "post"
                        objBEPost = New BEPost
                        objBEPost = BCForum.SelecionaPost(Convert.ToInt32(strID))
                        lblTitulo.Text = "Excluir Post"
                        lblMensagem.Text = "O Post será exluído. Tem certeza que deseja continuar?"
                End Select
            End If
        Else
            Response.Redirect(TELA_LOGOUT)
        End If
    End Sub

    Protected Sub btnCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        tipo = Request.QueryString("tipo")
        strID = Request.QueryString("id")
        Select Case tipo
            Case "categoria"
                Response.Redirect("forum_inicial.aspx")
            Case "subcategoria"
                Response.Redirect("forum_inicial.aspx")
            Case "topico"
                Dim objBETopico As New BETopico
                objBETopico = BCForum.SelecionaTopico(Convert.ToInt32(strID))
                Response.Redirect("subcategoria.aspx?id=" & objBETopico.IdSubcategoria)
            Case "post"
                Dim objBEPost As New BEPost
                objBEPost = BCForum.SelecionaPost(Convert.ToInt32(strID))
                Response.Redirect("topico.aspx?id=" & objBEPost.IdTopico)
        End Select
    End Sub

    Protected Sub btnExcluir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExcluir.Click
        tipo = Request.QueryString("tipo")
        strID = Request.QueryString("id")
        Dim path As String = Server.MapPath("..\imagens\forum\")
        Select Case tipo
            Case "categoria"
                BCForum.ExcluiCategoria(strID, path)
                Response.Redirect("forum_inicial.aspx")
            Case "subcategoria"
                BCForum.ExcluiSubcategoria(strID, path)
                Response.Redirect("forum_inicial.aspx")
            Case "topico"
                Dim objBETopico As New BETopico
                objBETopico = BCForum.SelecionaTopico(Convert.ToInt32(strID))
                BCForum.ExcluiTopico(strID, path)
                Response.Redirect("subcategoria.aspx?id=" & objBETopico.IdSubcategoria)
            Case "post"
                Dim objBEPost As New BEPost
                objBEPost = BCForum.SelecionaPost(Convert.ToInt32(strID))
                BCForum.ExcluiPost(strID, path)
                Response.Redirect("topico.aspx?id=" & objBEPost.IdTopico)
        End Select
    End Sub
End Class
